home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / biz / dbase / MUIVideo_211a.lha / MUIVideo / ARexx / keineverliehen.rexx < prev    next >
OS/2 REXX Batch file  |  1995-11-11  |  826b  |  37 lines
  1. /*
  2.  * keineverliehen.rexx
  3.  *
  4.  * Ändert die Datenbasis so, daß kein
  5.  * Film als verliehen gilt.
  6.  *
  7.  * Erstellt am 09.10.1995 von Christoph Kirsch
  8.  *
  9.  */
  10.  
  11. address MUIVIDEO.1
  12. options results
  13.  
  14. sleep                     /* Eingaben unterbinden */
  15.  
  16. count                     /* Anzahl der Datensätze */
  17. x = result
  18.  
  19. askchange 0               /* Nie abgleichen */
  20. abgl = result             /* aber alten Wert merken */
  21.  
  22. do i=0 to x-1             /* bei allen Datensätzen ... */
  23.  
  24.     goto i
  25.  
  26.     set AN ''               /* ... "verliehen an" ... */
  27.     set SEIT ''             /* ... und "verliehen seit" löschen... */
  28.     set HIER 1              /* ... und Hier-Flag setzen */
  29.  
  30.     change                  /* und übernehmen */
  31. end
  32.  
  33. askchange abgl            /* alten Wert für abgleichen */
  34.  
  35. wake                      /* wieder Eingaben erlauben */
  36.  
  37.